(define r5rs-t1 (print ((if #f + *) 3 4)))
(define r5rs-t2 (print ((if #t + *) 3 4)))

